<%

Function sql_GET(conexao, tabela, campo, id)

		str = "SELECT "&campo&" FROM "&tabela&" WHERE id="&id
		Set rsSql = conexao.Execute(str)
		
		sql_GET = rsSql(campo)


End Function
%>